perm filename NB.PSC[1,RWF] blob sn#728177 filedate 1983-09-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program nb(output)
C00003 ENDMK
CāŠ—;
program nb(output);
var r,c:integer;
begin
for r:=0 to 10 do
   begin
   for c:=1 to 15 do
      if c<=5 then write('A')else write('B');
   writeln
   end
end.